home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #11 / Commodore_Disk_User_Vol.4_11_1991_-.d64 / oxo winner (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  911b  |  17 lines
  1. 0 data1024,-1,1026,-2,1028,0,1108,2,1188,1,1186,0,1184,0,1104,0,1106,0
  2. 1 foro=0to8:ready(o),m(o):nexto:f$(1)="[144][201] win!":f$(2)="[144][201]t's a draw."
  3. 2 poke53280,11:poke53281,11:print"[144][147]0[221]1[221]2","  [212][197][195][200][206][207]-[201][206][198][207] [195][200][193][204][204][197][206][199][197] 2"
  4. 3 print"[192][219][192][219][192]":print"7[221]8[221]3",,"[157][157][212]ic-tac-toe":print"[192][219][192][219][192]":print"6[221]5[221]4","[208]aul ";
  5. 4 print"[199]ander    28 [202]une 1991":foro=0to8:z(o)=0:pokey(o)+54272,12:nexto
  6. 5 input"[145][196]o you want first go";a$:on1-(a$="y")-(a$="n")*2goto5,8:o=0:gosub11
  7. 6 gosub10:o=4-(o=4)*2:gosub11:forc=1to3:gosub10:n=2:gosub12:ifs=2thennextc
  8. 7 printf$(s):input"[208]ress return to play again.[151]";a$:goto2
  9. 8 gosub10:r=oand6:o=8*-(o<>8):gosub11:gosub10:n=o-(4+r-o)+(o=4+r)and7:gosub12
  10. 9 onsgoto7:gosub10:n=o+2and7:gosub12:onsgoto7:gosub10:n=o+r+4and7:gosub12:goto7
  11. 10 a=1:input"[145][215]here would you like to go";o:ifo<0oro>8orz(o+(o>8)*o)>0then10
  12. 11 z(o)=a+1:pokey(o)+54272,a:pokey(o),79+9*a:a=0:return
  13. 12 fors=1to2:forp=0to7:on1-(z(p)=s)goto15:on2-(pand1)goto14
  14. 13 fort=0to4:o=p+t-2and7:on2+(z(p+m(t)and7)=sandz(o)=0)goto11:nextt
  15. 14 o=p+4and7:on2+(z(8)=sandz(o)=0)goto11:o=8:on2+(z(p+4and7)=sandz(8)=0)goto11
  16. 15 nextp:nexts:s=2:o=n:goto11
  17.